home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 5-Fonts & Software / Applications / DesignStudio / DesignStudio™ 1.01 / DesignStudio™ 1.01.rsrc / PSCD_273 < prev    next >
Encoding:
Text File  |  1990-08-09  |  582 b   |  18 lines
  1. /mgsetcmyk[
  2. {pop pop pop cmyk2gray}
  3. {pop pop exch pop cmyk2gray}
  4. {pop 3 1 roll pop pop cmyk2gray}
  5. {4 1 roll pop pop pop cmyk2gray}
  6. ]def
  7. /mgcmyksetup{mgsetcmyk exch get/setcmykcolor exch bdf}def
  8. /invert{1. exch sub}bdf
  9. /cmyk2gray{invert setgray}bdf
  10. /setcmykcolor{mgp4 1 setgray}bdf
  11. /setgray{invert 0 0 0 4 -1 roll setcmykcolor}bdf
  12. /rgb2cmy{3{invert 3 1 roll}repeat}bdf
  13. /min{2 copy lt{1}{0}ifelse index}bdf
  14. /doUCR{min 3 index min 4 1 roll
  15. 3{3 index sub 3 1 roll}repeat 4 -1 roll}bdf
  16. /setrgbcolor{rgb2cmy doUCR setcmykcolor}bdf
  17. /sethsbcolor{sethsbcolor currentrgbcolor setrgbcolor}bdf
  18.